COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "PRONOR"
C00005 ENDMK
C⊗;
BEGIN "PRONOR"
REQUIRE "PIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
REQUIRE "WIXNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER I,J,K;

   BEGIN
   INTEGER ARRAY PIC[0:PFLDIM("CARS.00[AER,HPM]")];
   INTEGER ARRAY SUM[0:1024];
   INTEGER NSAMP,TOT,INTEG;

   FOR I←0 STEP 1 UNTIL 1024 DO SUM[I]←0;

   FOR I←1,2 DO FOR J←0,1,2,3 DO
      BEGIN
      INTEGER ARRAY PIC[0:PFLDIM("CARS.00[AER,HPM]")];
      INTEGER ARRAY HIST[0:1024];
      GETPFL("CARS."&CVS(I)&CVS(J)&"[AER,HPM]",PIC[0]);
      HISTOG(PIC[0],HIST[0]);
      NSAMP←2↑PIC[BYBI];
      FOR K←0 STEP 1 UNTIL NSAMP-1 DO SUM[K]←SUM[K]+HIST[K];
      END;

   TOT←0;  FOR I←0 STEP 1 UNTIL NSAMP-1 DO TOT←TOT+SUM[I];

   INTEG←0;
   FOR I←0 STEP 1 UNTIL NSAMP-1 DO
      BEGIN
      INTEG←INTEG+SUM[I];
      SUM[I]←(NSAMP-1)*INTEG/TOT;
      OUTSTR(CVS(SUM[I])&" ");
      END;


   FOR I←0,1,2,3 DO FOR J←0,1,2,3 DO
      BEGIN
      INTEGER ARRAY PIC[0:PFLDIM("CARS.00[AER,HPM]")];
      GETPFL("CARS."&CVS(I)&CVS(J)&"[AER,HPM]",PIC[0]);
      PERBIT(PIC[0],SUM[0]);
      PUTPFL(PIC[0],"NOR."&CVS(I)&CVS(J)&"[AER,HPM]");
      END;

   END;

END;